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Welcome to Fun To Program with Speed Walk- 
er! This book has been designed for anyone who 
already knows some BASIC and is ready to use it 
to create interesting programs. We assume that 
you have learned these BASIC commands: 

REn FOR/^EXT END 
PRINT IF/THEN 
INPUT GOTO 

Being a programmer is like being a detective- 
you must constantly uncover mysteries in programs. 
Programmers spend half their lives searching for 
clues that tell Aem what went wrong in their 
programs. To make it easier for you to read, to 
modify, and to debug your programs, in this book 
we use structured programming. This means that 
we plan the main parts of the program first and 
then refine the details. We use plenty of REM 
statements to document the meaning of the varia- 
bles we use and what the parts of the program 
do. And we indent parts of the program to show 
how they relate to each other. 



In the vein of being detectives, we are going to 
learn techniques that are involved with mysteries: 
telling fortunes, coding and decoding secret 
messages, and moving objects around the screen. 
Each chapter adds new concepts and commands 
and leads to a new game using combinations of 
these techniques. Every new idea is explained 
thoroughly, with examples for you to type in and 
experiment with. By the last chapter we will have 
built up a much more complex game than the one 
we start with, but by that time you will be familiar 
with all the parts that make up the program. 

At the end of each chapter we present ideas for 
variations that you could make in the program. In 
a sense, programs are never finished-you can 
always add one more improvement. And that's 
the beauty of programming: you can take your 
own original ideas and implement them to the best 
of your ability. So, although we present programs 
in these chapters for you to enter and run, the 
programs are really open-ended. We want you to 
modify and improve them, add new elements, and 
make up your own games. Above all, we want 
you to have fun! 
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what's Your 



Imagine yourself opening a fortune cookie. Did 
you ever wonder how that particular fortune got 
Into your cookie? Did somebody want you to 
have that one? Probably not. Someone must have 
sat down and made up a lot of fortunes, and 
someone must have put them all into the cookie^ 
but they did this in a ^Vandom" way. In other 
words, you could hove gotten any fortune thof 
had been written. 

Computers can do many things, and one of 
them is telling fortunes. They don't work by magic^ 
though. As you already know, someone has to 




program them-tell them exactly what steps to 
follow. We are going to write a fortune-telling 
program, and well follow the same steps as we 
would in making fortunes for cookies: 

1 . Make up a lot of fortunes and store them, 

2. Pick a fortune at random. 

3. Show the fortune. 

In this book we are going to structure programs 
so that they are easy to read and to change. We 
will do this by dividing the program into steps 
such as the three above, called subroutines. The 
main body of the program tells the computer 
where to find each subroutine. The main body 
reads as if it were a table of contents to the 
program. 

We also use a lot of REMarks to tell us what 
everything in the program does: what variables 
we are using, what each subroutine does. Here is 
how the main body of the fortune-telling program 
looks: 

10 REn WHAT • S YOUR FORTUNEf 

20 RD^F*(^) s ARRAY OF ^FORTlM:S 
30 REM J : COUNTER 

HO rehns random number 

50 REM 

100 GOSUBIOOO 
SOO GOSUBSOOO 
300 G0SUB3000 
HOO END 

2 



The first REMark is the name of the prograsn. 
^ The next three lines name ail the variables we will 
^ use in the program. Lines 100, 200, and 300 show 
^ where the three subroutines we will use are locat- 
^ ed. GOSUB 1000 tells the computer to go to line 
1000, execute all the instructions there until it 
comes to the command RETURN, at which point it 
^ should come back to where it left off. 

- 'i^gi 

STORING THE FORTUNES IN 
AN ARRAY 





^ Now let's begin writing the subroutines. The 
* subroutine at line 1000 will store as many fortunes 

as we want in DATA statements. Here is the begin- 

ning of the subroutine: 

^ lODO REM STORE THE FORTUiCS 

_ 1010 DATA "YOU WILL BE RICH" 
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lOaO DATA • 'YOU ARE VERY FUNNY' ' 
1D3D DATA ' 'YOU LOVE COTIPUTERS' ' 
lOMQ DATA • 'YOU UILL 60 ON A LONG TRIP' ' 

Feel free to use your own fortune^just make 
sure you begin each line with DATA and put 
quotes around the data you write. DATA state- 
ments can come anywhere in a program. When 
the computer finds a READ statement it automati- 
cally looks for DATA to read. It starts looking at 
the beginning of the program and keeps looking 
until it finds some. The next time it gets a READ 
command it continues from the lost piece of data. 
We are using four pieces of data, so we need 
four READ commands: 

lOSD DII1F*(H) 
IDtO F0RJ=1T0M 
1070 READF*(J) 
lOaO NEXT J 
lOTO RETURN 

Line 1050 notifies the computer that F$ is not a 
single variable but will have four elements, or 
cells. The group of four fortunes is called an array 
-several pieces of data sharing the same variable 
name. 

The loop in lines 1060 to 1080 instructs the 
computer to READ four pieces of DATA and store 
them in F$: the first string (or fortune) is called 
F$(1), the second is called F$(2), and so on. 



Line 1090 makes the computer return to the 
main program and continue from where it left off. 
It will now execute line 200, which tells it to go to 
the subroutine at line 2000 and pick a fortune.^ 



CHOOSING A FORTUNE 
AT RANDOM 




Now that we have four fortunes stored as 
HO), F$(2), F$(3), and F$(4), we need to pick 
one of them at random. The Tl has a built-in func- 
tion that can choose a different number each time 
you use it. If we can get it to pick the number 1, 2, 
3, or 4, we can use that number to select one of 
the four cells of F$. We will use the random func- 
tion so much in this book that we had better spend 
some time understanding how it works. 



5 



Let's work on a little test program. If you are 
typing in the FORTUNES program, save it and 
type NEW. Then type in the following: 



ID F0RX=1T010 
BO PRINT RND 
3D NEXTX 



That's the whole program. Run it a few times 
and study the numbers you get. They should all be 
decimals between and 1. However, you should 
get the same random numbers each time. To get 
different numbers, we need a new Tl command, 
RANDOMIZE. Insert this line in your program: 

S RANDOMIZE 

and run the program a few more times. Now the 
numbers should all be different. Every time we use 
the RND function we will use RANDOMIZE at the 
beginning of the program. Notice that the num- 
bers you are getting are all decimals between 
and 1. We need bigger numbers, so make this 
change: 

SD PRINT4*RNI> 

Run this version a few times. Now all the num- 
bers should be between and 3.999.... They 
won't quite get up to 4. 
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For pur fortunes we need the integers 1, 2, 3, 
or 4--we don't wont the decimal part of the 
number. BASIC has an integer function that chops 
off the decimal part. Change line 20 again*. 

eO PRINT INT (H*RNJ» 

and run it. Now the computer picks decimal num- 
bers at random, multiplies them by four, and 
chops off the decimal. But there is still one thing 
wrong-notice that the range of the numbers is 
from to 3. We want a range from 1 to 4, so one 
more change is necessary: 

SD PRINT INT (H*RN1» +1 

This version should give us the numbers we 
want. Using this formula, we can write the whole 
subroutine in three lines: 

aODO REfl PICK A RANDOM NUHBER 

2D1D RANDOMIZE 

2D2Q N = INT(M*RND) -M 

BD3D RETURN 

We are getting a random number from 1 to 4 
and storing it as N. All we have to do now is to 
show fortune number N. 



DISPLAYING THE FORTUNE 




You should hove no trouble in seeing how this 
subroutine works: 



3DQD REM DISPLAY THE FORTUNE — 

301D CALL CLEAR 

3DHD PRIi^T ' 'HERE'S YOUR FORTUiC: ' ' 
3D30 PRINT 
304D PRINT F$(N) 
3d5D RETURN 



CALL CLEAR erases the screen and line 3040 
prints fortune N, What is fortune N? If N equals 1 
then the computer will display F$(l),"YOU WILL BE 
RICH". If N is 3/ then F$(3) will be shown, "YOU 
LOVE COMPUTERS". 
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PUTTING THE 
PROGRAM TOGETHER 




All the subroutines are written and the program 
is ready to go. Even though you can see the whole 
program by looking at various places in this chap- 
ter, if s a good idea to see it all in one place: 



10 REM WHAT'S YOUR FORTUICf 

20 REnF*(4) : ARRAY OF 4 FORTUNES 

30 REH J s COUNTER 

^0 REM N: RANDOM NUMBER 

SO REM • 

100 GOSUBIOOO 
SOO GOSUBeOOO 
300 GOSUB 3000 
MOO END 

1000 REM STORE THE FORTUNES— 

1010 DATA • 'YOU UIILL BE RICH' ' 
IDSO DATA ' 'YOU ARE VERY FUNNY' ' 
1030 DATA • 'YOU LOVE COMPUTERS' ' 

9 



MmO DATA "YOU UILL GO ON A LONG TRIP' ' 

lOSD I>inF*(H) 

IDbO F0RJ=1T0 4 

1D7Q REAI>F*(J) 

lOaO NEXT J 

UOna RETURN 

aOOO REfl PICK A RANDOM NUMBER 

SOlO RANDOMIZE 

SD2D N=INT<4*RND) +1 

SCBO RETURN 

3D00 REM DISPLAY THE FORTUNE 

3010 aLL CLEAR 

3020 PRINT "HERE'S YOUR FORTUNE: ' • 
3030 PRINT 
3040 PRINT F$(N) 
3050 RETURN 




There are always many things you can do to 
improve a program and to make it more elabo- 
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rate. At the end of each chapter we will suggest a 
few variations you can try and give you hints on 
how to get started. Here are variations for our 
fortune cookie program. 

1 . Four fortunes may not seem like enough of a 
variety to you. You can make up and store as 
many as you wish. You will, however, have to 
change several parts of the program: 

a. Add more DATA lines in the first subroutine. 

b. Change the number in lines 1050 and 1060. 

c. Also change the 4 in the random function 
(line 2020). 

2. Display two (or more) fortunes: Suppose two 
people want to see their fortunes at the same time. 
You would need to pick two fortunes - lef s call 
them N1 and N2: 

aoaO N1=INT(M*RN1» 
2DSS N2=INT(H*RN!» -H 

In the last subroutine, you would display both 
N1 and N2. In this way you could store and print 
any number of fortunes. 
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A Secret Code 



Have you ever used a secret code to communi- 
cate with a friend? All codes have rules to 
follow — if you know the rules, you can decode a 
message with no trouble. Computers can code 
and decode very easily, as long as you program 
in the rules. In this chapter we will write a game 
program for two people to play. The first will type 
in a message. The Tl will take the message, 
change it into a code, and then show it to the 
second player, who will try to decode it. 

There are many, many different codes we couict 
use. Here we'll use a reverse code: the computer 
will take the message and display it backwards. 
The second player will have to read from right to 
left to figure it out: 

?SIHT DAER UOY NAC 

If you can, you'll be able to decode everything 
in this game. Here is the main body of the 
program: 
12 



U3 REM SECRET CODE ~- 

SO REM f1$: THE MESSAGE 

30 REM L* ; A LETTER IN THE MESSAGE 

MO REM C*: THE CODE 

SO REnA$: ANShER 

to REM J : COUNTER 

70 REri- -— 

100 60SUB1000 
SOO GOSUBSOQO 
300 GOSUB30aO 
HOO END 



The main body shows us that there are five 
variable names we will use, and three sections of 
the program. 



GETTING THE MESSAGE 



mem! SOMEONE SEMT ) 
YOUADISCmyOUR ^/ 
COMPUTER... DO iOU 
KNOW A "KILLER > 
K/LOBYTE"? 




In the subroutine at line 1000, we ask the sec- 
ond player not to watch while the first player 
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types in the message. The message will be stored 
asM$: 

1000 REfl GET THE MESSAGE 

1010 CALL CLEAR 

lOBO PRINT • 'ASK YOUR FRIEND NOT TO WATCH* ' 
1030 PRINT ' 'WILE YOU TYPE YOUR MESSAGE. ' ' 
lOHO PRINT 

lOSO PRINT ' 'TYPE THE flESSAGE, ' ' 
IDbO PRINT ' 'THEN PRESS RETURN: ' ' 
1070 INPUT n* 
1060 RETURN 



REVERSING THE MESSAGE 




Now ¥ne program has a string of characters 
called M$ - any group of letters or numbers or 
other keyboard characters such as dollar signs or 
parentheses could be in the string. We need to 



reverse all the characters in M$ and store them in 
a new variable we will call C$ (for code). The 
procedure will be as follows: 

1 . Take the last character of M$ and make it 
the first character of C$. 

2. Make the second-to-last character of M$ the 
second character of C$. 

3. Make the third-to-last character of M$ the 
third character of C$. 

4. Follow this procedure until we get to the last 
character of M$, which will become the 

first character of C$. 

Suppose the message is just the word '^HELLO''. 
The last character of M$ would be ''O", so ''O" 
will be the first character of C$. Then, L will be the 
second character of C$. When we finish the 
coding, C$ should be 

The Tl has a special built-in function that can 
pick out any character you wish from inside a 
string of characters. Let's experiment to see how it 
works. First type 

m= ••HORSE" 

Then ask the Tl to 

PRINT SEfi*(t1$-.H-.l) 
(and press return, of course.) 
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The Tl should respond with the letter S, because q 
S is character number 4 in M$. Now try this 
command: 

PRINT SEG*(l1$-.3i2) 

The Tl will show you two characters in M$, "f" 
starting at character number 3. You should see the ^ 
letters RS when you press return. To use the SEG$ ^ 
function you need three pieces of information ^ 
inside the parentheses: 

(name of string, starting character, how nrany w 
characters) 

in place of the numbers you may use variable ^ 
names. For example, tell the Tl that Q 

J = s 

and then tell it to 

PRINTSEG*(n*nJ-.l) 

In other words, you want to see 1 character of ^ 
M$, starting at character number J, or 5. You ^. 
should see the letter E. What if J is 4? Then 
SEG$(M$,J,1) is the letter S, By changing the vol- ^ 
ue of J we could look at all the characters in M$. 

But how do we know how many characters ^ 
there are in M$? w 

Another Tl function tells us this fact. Try this: ^ 
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PRINT LEN(n$) 

LEN stands for the length of any string you put 
inside the parentheses. Lefs change M$ as 
follows: 

f1*= "HI THERE!" 
PRINT LEN (M*) 

If you type in these commands, after the second 
time you press return you will see that the length 
of M$ is 9. The space and the exclamation point 
count because they are both part of the string of 
characters. 

Before we write out the subroutine, let's use 
these new functions in a short test program, just as 
we did in the first chapter for the random func- 
tion. The best way to understand any new comput- 
er concept is to use it in the simplest program you 
can imagine. 
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If you are already typing in our program, save 
it, type NEW, and type in the following test: 

ID n^= ''HELP" 

20 FORJ =1T0H 

30 PRINTSEG*(n*-.J-»l) 

40 NEXT J 

Run this program-the output should be the four 
letters in HELP displayed one to a line on the 
screen. The first time through the loop J equaled 1 
so the first letter of M$ was printed. The second 
time the second letter was printed, and so on. 
Now make this change: 

10 FORJ = HT01STEP-1 

Run the program again. This time the letters are 
displayed in reverse order. The first time through 
the loop J equaled 4 so the fourth letter was 
displayed. J decreased by 1 every time through 
the loop, so the second time J equaled 3 and the 
third letter was displayed. Now make one more 
change: 

10 FOR J = LEN (n*) TO 1 STEP -1 

The program should run exactly the same. The 
computer simply substituted the number 4 for 
LEN(M$) because there are four characters in M$. 
18 



Because the computer can do this, we do not have 
to know how many characters there are in M$ in 
advance. 

Now we're ready for the coding subroutine: 

2DD0 REd REVERSE THE MESSAGE — - — 

2D10 FOR J = LEN (M*) TO 1 STEP -1 
aJ2D L* = SE6*(I1*-.J-.1) 
203D C* = C*aL« 
20HDNEXTJ 
20S0 RETURN 

The routine has only a few steps. The 
FOR/NEXT loop telU the computer to count down 
starting from the last character until it gets to the 
first character of M$. If M$ is the word ^^CAT'' 
the loop will be executed three times. The first time 
J will equal 3, the second time J will be 2, and the 
third time J will be 1 . 

L$ stands for one letter in M$. If M$ is ''CAT'', 
the first time through the loop L$ will be 'T', the 
second time L$ will be '"A", and the last time L$ 
will be ''C". 

Line 2030 takes each L$ and adds it on to the 
end of C$ (the code). Before we start there is 
nothing in C$, so the first L$ becomes C$ by itself. 
After the first time through the loop, C$ will be 
'T'. After the second time, L$ will be ''A" and 
gets added to the end of C$--C$ will now be 
''TA". After the last time through, ''C" will get 
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added and make C$ "TAC". The original mes- 
sage is now reversed. 



QUIZZING THE 
SECOND PLAYER 




Now that we have the original message (M$) 
and the coded version (C$) the rest is easy. We 
dear the screen and ask the second player to look 
at C$ and type in the original message. We'll call 
the second player's answer A$. If A$ matches M$ 
then the player is correct. 

3000 REfl (3UIZ 

301D CALL CLEAR 

3020 PRINT • 'ASK YOUR FRIEND TO TRY' ' 
3030 PRINT ' 'TO DECODE THIS PIESSAGE: ' ' 
3DM0 PRINT 
3DS0 PRINT C* 
20 



aoyj PRINT 

3070 PRINT • ' TYPE YOUR ANSWER HERE: ' ' 

30fi0 INPUT A$ 

3D«iD IF A* = 11* THEN 3130 

3100 PRINT • 'SORRYi THE HESSAGE WAS: ' ' 

3110 PRINT 11* 

31S0 G0T03m0 

3130 PRINT "THAT'S IT!" 

3mO RETURN 



THE WHOLE PROGRAM 




Once again, we will print the whole program in 
one piece so you can see all the parts of it at 
once. 



10 REH —SECRET CODE 

20 REM n*: THE MESSAGE 

30 REO U : A LETTER IN THE MESSAGE 

^Q REM C«: THE CODE 
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50 REflA^: ANSICR 
bO REM J : COUNTER 

70 REPi — 

IDO GOSUBIQOO 
500 GOSUBEOdO 
Sm GOSUB 31300 
>400 END 

1000 REM- GET THE MESSAGE 

1010 CALL CLEAR 

1020 PRINT ' 'ASK YOUR FRIEND NOT TO lilATCH' ' 
1030 PRINT ' 'WHILE YOU TYPE YOUR MESSAGE. ' ' 
lOMO PRINT 

1050 PRINT • 'TYPE THE MESSAGE, ' ' 
lObO PRINT ' 'THEN PRESS RETURN: ' ' 
1070 INPUT M* 
lOflO RETURN 

SOQO REM REVERSE THE MESSAGE- 

5010 FOR J = LEN ( M$ ) TO 1 STEP -1 
S05D L* = SEG*(M$-.J-.l) 
2030 C* = C«aL* 
20M0 NEXT J 
20S0 RETURN 

3000 REM (2Un 

3010 CALL CLEAR 

3020 PRINT • 'ASK YOUR FRIEND TO TRY' ' 
3030 PRINT ' 'TO DECODE THIS MESSAGE: ' ' 
3040 PRINT 
3050 PRINT C$ 
3ab0 PRINT 

3070 PRINT ' 'TYPE YOUR ANSWER HERE: ' ' 

30a0 INPUT A« 

3DT0 IF A* = M* THEN 3130 

3100 PRINT ' 'SORRY-. THE MESSAGE UAS: ' ' 



3110 PRINT n* 

31E0 G0T0 3m0 

3130 PRINT' 'THAT'S IT! 

3m0 RETURN 



VARIATIONS 




1. As it stands, our program always uses the 
same code. If someone plays a number of times, 
he or she will probably catch on to the code and 
the game will stop being fun. Let's work on a 
subroutine that uses a different code. 

There are probably thousands of different 
codes we could make up. Our fist code simply 
reversed the message. Another code might insert a 
letter after every letter of the message. In this case 
the code for HELLO could be HXEXLXLXOX. One 
easy change in the coding subroutine will take 
care of this: 
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SDOO REM -CODE IT 

EOID F0RJ = 1T0LEN(I1$) 
3320 L* = SEG*(n*-.J-.l) 

SD30 c* = «aL*a '^X'* 

SDHO NEXT J 
aOSD RETURN 

There are really two changes. In line 3010 we 
count forward Instead of backward because we 
don't want to reverse the characters of the mes- 
sage this time. In line 3030 we add a letter of the 
message and also an X to the code each time 
through the loop. 

Of course you could use any letter in place of 
the X. But isn't this code too easy to read also? 
What if we picked a letters at random and insert- 
ed them into the code each time through the 
loop? 

To program this, you have to learn about two 
more BASIC functions. Every character used by 
the computer has a code number. The code is 
called the ASCII code and most computers use it. 
The ASCII number for a capital A is 65. B is 66, C 
is 67, and so on until Z, which has the code num- 
ber 90. You can prove this for yourself. Type: 

PRINTASCC'A") or PRINT ASCC'T") 

or whichever character you want. 

The ASC function takes a letter and changes it 
into a number. We want to do |ust the opposite 
when we use the RND function we get a random 
24 



number. We need to change the number into d 
letter. The BASIC function CMR$ does just this. 
Type: 

PRINT CHR$(tS) 

and the computer returns the letter A, because A 
is character number 65 in the ASCII Jist. The CHR$ 
function is the opposite of the ASC function. 

Now lef s change our CODE IT subroutine so 
that each time through the loop we get a random 
integer from 1 to 26 (because there are 26 letters 
in the alphabet) and use that integer in the CHR$ 
function to get a letter. In this way we get random 
letters that we can add to the code instead of 
adding an X every time: 

BDOO REM CODE IT 

aOlO FORJ = 1T0LEN(I1*) 
2DaO L* = SEG*(n$-.J-,l) 
a03D R = INT(Eb*RNI>) +bS 
SQMD C* = «aL*&CHR$(R) 
SD50ICXTJ 
SObO RETURN 

In line 2030 notice that we add 65 to the ran- 
dom number. We want the number to be between 
65 and 90 because these are the ASCII codes for 
A and Z. We don't want any random numbers 
between 1 and 64. 

Also notice that line 2040 adds three strings 
together each time through the loop: what was in 
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the code^ already (C$), the next letter of the mes- 
sage (L$), and the letter picked at random 
(CHR$(R)). 

2. Another change would be to give the player 
more than one chance to get the message correct. 
Here's how you could go about it. The beginning 
of the QUIZ subroutine, from line 2000 to line 
2070/ would remain the same; you would display 
the coded message and ask for the answer. Next 
you would set up a FOR/NEXT loop that goes 
around however many times you wish. Inside the 
loop you would get the answer and evaluate 
whether it is right or wrong. If it is wrong you 
would give the appropriate message and go 
through the loop again. We leave it to you to 
develop the code completely. 
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^ We have used several important techniques in 
^ writing games: different ways to make codes, to 
^ store and display messages, and to use the ran- 
^ dom function. These are found over and over 
^ again in games. But so far we have ignored a 
^ game technique that the computer does especially 
^ well: animation. 

Many computer games use some kind of anl- 
motion (moving objects around the screen). Pro- 




grammers spend years studying the most ^ 
advanced new animation techniques. In this book ^ 
we will introduce you to character animation-that ^ 
is, using any of the characters on the keyboard 
and making it seem to move. 

We will start with a race between two initials, ^ 
On the left side of the screen we'll place the first ^ 
initials of the two players. When someone presses ^ 
ENTER to start the race, the initials will take off, at ^ 
different speeds. When one of them reaches the 
finish line, the program will anounce who won. 
Each time you run this program, a random speed ^ 
will be picked for each initial, so that each could ^ 
win each time. 

The four main parts of the program, as well as ~ 
the variables we will use, are shown in the main ^ 
body: ^ 



ID REil INITIAL RACE 

50 REM A$ : THE FIRST INITIAL 

SS REPI B* : THE SECOND INITIAL 

3D REM A : ASCII CODE FOR A* 

3S REM B : ASCII CODE FOR B$ 

MD REM SA s SPEED FOR FIRST INITIAL 

^S REM SB : SPEED FOR SECOND INITIAL 

SD REM CA s COLUMN OF FIRST INITIAL 

S5 REM CB s COLUMN OF SECOND INITIAL 

bD REM U$: THE WINNER 

bS REM R*: A RESPONSE 

7D REMX: A COUNTER 

?S REM M$: A TEXT MESSAGE 
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an REI1L4: ALETTERINPI* 

as REfl C s ASCII CODE FOR L« 

TO REM 

TS RANBOniZE 
im GOSUBIDOO 
200 GOSUBSDDO 
BOO (SOSUBBDOa 
HOD GOSUB HDOO 
SOD END 

Subroutine 1000 gets two initials called A$ and 
B$ for the race. Subroutine 2000 selects speeds 
for the two initials at randoni. Up to this point all 
the commands should be familiar to you. Starting 
at subroutine 3000 (the race) and continuing 
through the rest of this book, however/ we will 
handle all input and output in a different way. 

Up till now, when we wanted to put a message 
on the screen we used the command PRINT, and 
when we wanted the user to respond we used the 
command INPUT. You may have noticed that each 
of these commands made the whole screen scroll 
upward-that is, everything moved up a line. For 
the rest of this book we want to set up the screen 
and not have it scroll upward. We also want to be 
able to place text and get input at any location of 
the screen. For these purposes we need new func- 
tions and commands. Subroutine 4000 of this 
chapter introduces the CALL HCHAR subprogram 
for putting output wherever we want it-it 
announces the winner of the race. 
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GETTING THE INITIALS 



(TO LOOK 

NBEDEOi 
YOUrij 




Everything in the first subroutine should be 
familiar: 



IDOO REPI —GET INITIALS — 
1010 CALL CLEAR 

lOSO PRINT • 'TYPE THE FIRST INITIAL' ' 
1030 PRINT ' 'OF PLAYER #1; ' ' 
1Q^0 INPUT A$ 
1050 PRINT 

lOtO PRINT • 'ANI> THE FIRST INITIAL' ' 
1070 PRINT ' 'OF PLAYER #2: ' ' 
lOaO INPUT B$ 
lOTO PRINT 

1100 PRINT ' 'PRESS ENTER TO RACE' ' 
1110 INPUT R* 
1150 RETURN 



We clear the screen with CALL CLEAR, get the 
first initial and call it A$, get the second initial and 
30 



call it B$, and then wait until the player presses 
ENTER to start the race. 



ANIMAT8NG 




Before we get to the race itself, let's investigate 
what animation on a Tl is all about. As we did 
before in learning a new concept, we will write a 
small test program. If you are currently typing the 
program from this chapter, make sure you save it 
(and type NEW) before entering this one. 

The kind of animation we will be doing is called 
^^character graphics." This means that we make 
people believe that something is moving across the 
screen by printing a character from the keyboard 
on the screen, erasing it, and printing it a litrie 
distance away. By repeating these steps over and 
over, it appears that the character is moving. 
These are the steps we will always follow in 
animating: 
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1. Display a character on the screen. 

2. Repeat some number of times: 

a. Erase the character. 

b. Display the character a litrie distance 
away. 

The Tl screen is divided into 32 rows from left 
to right and 24 columns from top to bottom. See 
your User's Reference Guide for a screen map 
that shows the rows and columns. To place a char- 
acter at a certain screen location we use the CALL 
HCHAR subprogram. It is a subprogram because 
it is stored inside the Tl as a little program that lets 
you place characters on the screen. To use CALL 
HCHAR you must know three things: the row num- 
ber you want the column number, and the charac- 
ter code. Remember the ASCII codes that we used 
in Chapter 3-character 65 is A, 66 is B, and so 
on. 

Here is the command for putting the letter C 
(character code 67) on the 5th row and the 20th 
column of the screen: 
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CALLHCHAR(S-.S0-.t7) 

If you know these three pieces of information 
that's all there is to it. By the way, there is also an 
option for repeating the same character as many 
times as you want horizontally (HCHAR stands for 
horizontal characters)~simply add a comma and 
the number of repititions inside the parentheses. 
Similarly, there is a VCHAR subprogram for dis- 
playing and repeating characters vertically on the 
screen. In this book, however, we do not repeat 
the same character, so the only command we need 
is CALL HCHAR with three numbers in the 
parentheses, as shown above. 

Lef s use CALL HCHAR to animate the letter Z 
across the screen. It will move across row 10, from 
coFumn 5 to column 25. 

ID CALL CLEAR 

SO CALL HCHAR (1D-.S.=1D) 

30 FORC = SToa^ 

HQ CALL HCHAR (10-.C.32) 
SO CALL HCHAR (lO-.C+1-i^O) 
bO F0RP=1T0S0 
70 NEXTP 
flO NEXTC 

10 F0RP = 1T02DDD 
100 NEXTP 

First we clear the screen (line 10) and put a Z 
on row 10, column 5 (line 20). The loop in lines 30 
to 80 erases the Z (character 32 is a space) and 

33 



draws it one column over (C+l), from column 5 
to column 24. The last time through the loop C will 
be 24, so the Z will be drawn at C+ 1, or column 
25. The pause loop in lines 60 and 70 slows down 
the speed of the Z a little. The pause at the end of 
the program (lines 90 and 100) simply waits a 
white before ending the program and scrolling up 
the screen. 

Test this program out and try modifying it. 
Change the row number, the column numbers, the 
character code, or the length of the pauses. All of 
our animation will be similar to this. One differ- 
ence in the race in this chapter, however, is that 
we don't necessarily want to move one step at a 
time across the columns. Therefore we will pick 
random speeds for the two initials and calculate 
the new column position before we move each 
initial. 



SELECTING THE SPEEDS 



^ Each initial will get a speed of either 1 or 2. 
^ This means that before each move we will add 
either a 1 or a 2 to the column number of that 
^ initial and use the result as the new column 
^ number. 

* 2DDD REH—RANDOn SPEEDS— 
BOIQ SA = INT (2 * RN1>) + 1 

* SD2D SB = INT(2*RN1» +1 
^ 2030 RETURN 

^ SA and SB stand for the speeds of initials A 
^ and B. Both SA and SB could be either 1 or 2 
each time the program runs. If SA is 1, initial A 
will move 1 step at a time across the screen. If SB 
is 2, initial B will move 2 steps at a time and it will 

* win the race. 




Storing the speeds of the two initials is not quite 
enough. We also need to know their column posi- 
tions at each move. Suppose we decide that 
whichever initial crosses column 28 first will be the 
winner. We will start both of them at column 3, 
but we will not know how far each goes on each 
move. The two variable CA and CB, standing for 
initial A's column and initial B's column, will tell us 
their current position. 

Speaking of the winner, when the race is over it 
would be nice to announce who the winner is. For 
this, we need another variable, W$, in which to 
store the initial that crosses the finish line first. 

Two last variables (called simply A and B) will 
store the character codes of the initials. Remember 
that to use CALL HCHAR we need the character 
number, not the character itself. Also remember 
from Chapter 3 that we can find out the code 
numbers by using the ASC function. ASC(A$) will 
be the character code for the first initial and 
ASC(B$) the code for the second. 

Now we're ready for the race subroutine. Let's 
examine it in chunks. 

30DD REM THE RACE 

301D CALL CLEAR 
30a0 A = ASC(A$) 
3D30 B = ASC(B*) 
30HD CA = 3 
3DS0 CB = 3 

3DbO CALL HCHAR (^■,CA.A) 
3070 CALL HCHAR (b-.CB-,B) 
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We clear the screen, use the ASC function to 
store the code numbers A and B, set CA and CB to 

3 because we want them to start on column 3, and 
finally we use CALL HCHAR to put initial A on row 

4 and initial B on row 6, both on column 3. 

30fiQ F0RX = 1T01DI30 
NEXTX 



A little pause before we actually start the race 
lets the player adjust to seeing the intials before 
they take off. 

3100 aLL HCHAR (4-,CAi32) 
311DCA = CA + SA 
3150 CALL HCHAR (M-.CA-. A) 
3130 IF CA<Ea THEN 3iy] 
3140 m = A* 
3150 G0T03E50 
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This section moves initial A. Line 3100 puts a 
space at its current position. Line 3110 calculates 
what its new column position should be-either 1 
or 2 is added to CA. Line 3120 draws the initial at 
its new column position. Line 3130 checks the 
column position. If it is less that 28 (the finish) the 
program skips to line 3160 and moves initial B. If 
it is not less than 28, that means initial A has won, 
so we store A$ in W$ and skip to the end of the 
subroutine. 

31b0 CALL HCHAR ( b-.CB-.32 ) 

317D CB = CB + SB 

31fl0 CALL HCHAR (t-.CB-.B) 

3n0 IF CBXSa THEN 3220 

3200 lil$ = B$ 

3210 GOTO 3250 

This section moves initial B in exactly the same 
way we just moved initial A: we erase the initial 
where it is, calculate a new position and draw it 
there, then check whether it has won the race. 

3220 F0RX = 1T010 
3230 NEXT X 
32H0 GOTO 3100 
32S0 RETURN 

If the initial has not yet won (if its column posi- 
tion is less than 28) the program moves to line 
3220. Here we pause briefly and go back to line 
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3100 to move the initials again. If either initial has 
won, line 3250 returns from the subroutine. 




THE WINNER 




w Only one piece of business remains: telling who 
^ won. We could simply say: 

4DQ0 PRINT • 'THE WINNER IS ' ' '-m 

This would work, but the PRINT command 
would make the whole screen scroll up a line, 
including the initials. Here we'll learn a way to 

^'^ avoid that and let you put a message on any part 
of the screen you want. To do this we will go 

^ through several steps: 

1 . Store the message as a variable (M$). 

2. Investigate M$ character by character: 
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a. Use the SEO$ function to get one ^ 
choracter at o time. ^ 

b. Use the ASC function to get the code 
number for the character. ^ 

c. Use CALL HCHAR to draw each chorac- ^ 
ter next to the last. 

This may sound like a complicated way to put a ^ 
message on the screen, but once you get used to 
it it becomes routine. It has the advantage of^ 
letting you put text on different parts of the screen 
without disturbing the screen/ and it is fairly short: ^ 

MODO REM — THEIilINNER w 

moo fl*= "THE WINNER IS" ^ 
mi20 FORX = lTOLEN(n«) 

^^3D L* = SEG*(n$-.x-.i) . 

WHO C = ASC(L$) 

MOSO CALL HCHAR (IfliXiC) ^ 
MOtO NEXTX ^ 

First we want to print THE WINNER IS, so we w 
store this string as M$. The loop in lines 4020 to 
4060 needs to go around as many times as there Q 
are characters in M$. The LEN function, remem-^ 
ber, gives us this number. Line 4030 picks out each 
character from M$ (one at a time) and calls it L$. 
Line 4040 gets the code number for L$ and colls it 
C. Line 4050 draws each character on row 18 of ^ 
the screen. The first character will be drawn in"^ 
column 1, because X is 1 the first time though. The ^ 
second character will be in column 2, and so on. If %^ 
40 w 



we had wanted to begin at column 5, in line 4050 

* we would have lo CALL HCHAR(18,X+4,C), 
^ since the first time though X + 4 would equal 5. 

* HD7D CALL HCHAR ( IflilS-. ASC ( ) ) 
^ MOaO F0RX = 1T0S0Q0 

^ HCna NEXTX 
41DD RETURN 

^ Finally we print W$ at column 15 of row 18 
^ and pause briefly. Notice that we can use the 
ASC function inside of CALL HCHAR to get the 
*^ correct character code number. 



VARIATIONS 




Because of the length of the animation and dis- 
play subroutines, from here on we are not printing 
the whole program at the end of the chapter. You 



can put it together easily yourself, however, by 
looking through the chapter. Remember, of 
course, that the test animation program we wrote 
is not part of the Initial Race program. 

Once you know how it's done, animation gets 
easier and easier. All you need is practice. Here 
are several suggestions for improving this game; 
you can probably think of many more: 

1) SCREEN FORMAT: Use CALL HCHAR to 
make the screen look fancier before the race 
starts. Put a title for the race at the top of the 
screen, using subroutine 4000 for a model. Put a 
border around the racetrack. The command 

CALL HCHAR (a-.l-,ASC M ^30) 

will put 30 dashes across row 2 of the screen, 
starting at column 1 . 

2) AAORE SPEEDS: We used speeds of only 1 or 
2. You may want more variation. You should 




know by now how to use the random function to 
change the range of the numbers you get. Be 
careful of one thing, however. If you set the speed 
very high, the initial will look like it is jumping 
across the screen, and the screen has only 32 col- 
umns across. 

3) MORE RACERS: Get three initials instead of 
two. Set three random speeds. Set all three initials 
on their marks. And move all three of them. You 
could even add a fourth or a fifth. 
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The initial race was a fairly simple game - the 
whole game was the race. Animation can be used 
as a part of more complex games, though. Imag- 
ine this screen: on the right is a ''balloon" and on 
the left is a person's initial. On the lower half of 
the screen the player gets arithmetic problems 
which he or she tries to solve. When an answer is 
correct, the player's initial moves across the screen 
and ''bursts" the balloon, which turns out to have 
a message inside it. 

This game combines many elements we have 
used before: animation, random numbers, using 

mNNims mimNA PRo&mt 

TO CONNECT MS COMPUTER TO 
ALL THE OTHERS INTOm.. 
AND TAKE CONmOL 
OF THEM' 



(bi&deal. 

KILLER! 
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^ DATA statements, giving the player several tries. 

Good games are created by combining many dif- 
^ ferent elements, but none of the elements has to 
be complicated by itself. 

One more Tl programming concept needs to be 
introduced. As we mentioned in the last chapter, 
^ from now on we must handle input and output 
differently if we want to preserve our screen 
^ setup. We have already looked at CALL HCHAR 
^to produce output. In this game we also need 
^ player input. The CALL KEY subprogram gets a 
character number when a key on the keyboard is 
pressed and transfers it to the program. 

With both CALL HCHAR and CALL KEY we 
need to switch back and forth from character 
names to character codes, and also from codes to 
names. This increases the number of variables we 
must use. Sometimes we need numbers like X and 
Y (the random arithmetic numbers in this game), 
but we also need to make them into strings (X$ 
and Y$) so that they can be part of a string for 
CALL HCHAR to output. 

^ S REM BURST THE BALLOON ^- 

10 REM 1*2 THE INITIAL 
^ IS REM Rs ROU NUMBER 
^ 20 REM C : COLUMN NUMBER 

BS REM M$s TEXT MESSAGE 
^ 3D REM L*s LETTER IN TEXT 

35 REM A : ASCII CODE NUMBER 
^ HO REMJ : ACOUNTER 

HS REM K: KEY NUMBER 
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it/' 



so REnS: 
55 REI1R$: 



70 REfIX*; 
75 REf1Y$: 



STATUS OF KEYBOARD 
RESPONSE 
ya REtlX: RANDOnNUdBER 
b5 REMY: RANDOHNUPIBER 
STRING OF X 
STRING OF Y 
ao REn V : VALUE OF RESPONSE 

65 REM 

ID RANDOniZE 
100 GOSUBIOOO 
SOO GOSUBSOQO 
BOO G0SUB3000 
1400 END 



SETTING UP THE SCREEN 



POINT ]^ 

\ neae. 




This subroutine has several little parts. First, we 
put a title for the game across the top of the ^ 
screen. Second, we draw the balloon. Third, we 
get the initial and put it to the left of the balloon, w 
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Last, we explain the game. Let's look at each part 
individually. 

lODD R01 SETUP-— 

IDIO CALL CLEAR 

1020 m = ' 'BURST THE BALLOON' ' 
1D30 R = S 
IDMD C = 7 
lOSO GOSUBISDD 

Every time we have text to put on the screen we 
will handle it the same way we handled the mes- 
sage THE WINNER IS in Chapter 4, using CALL 
. HCHAR. In this chapter we have many messages 
to output, so we will make the code to draw them 
a separate subroutine, located at line 1500. This 
subroutine needs three pieces of information: the 
row number (R), the column number (C), and the 
text message (M$). We'll look at subroutine; 1500 
at the end of this section. For now, it's enough to 
know that the text BURST THE BALLOON will be 
put on row 2, staring at column 7. 

lOU) ]>ATA >tiSS-.t«-.Sb-.5-.S3-.SiSH-.5-.57-.S-.Sa 

1070 MTA b-.as-.b-.??-.7-.Es-.7-.e^-.fi-.sl-.a-.3a 

IQfiO UU ■liSl-.'^TBO-.lOnEE-.lO-.S'^ill-.aa-.ll-.EI 
IXm MTA lS-.S3-.].5iSM-.lS-.S7iIS-.S6-.]ai55-.lB-ia) 
1100 F0RJ = 1T024 
1110 REA]>R-.C 

1120 CALL HCHAR (RiCiASC ( "0" ) ) 
1130 NEXTJ 



47 



This part draws the balloon. The balloon is 
made up of 24 letter O's. The first one goes on 
row 4, column 25. The second is on row 4, column 
26. Instead of using 24 CALL HCHAR commands 
to draw the balloon, we READ from lines of 
DATA. The first two data numbers are the first 
row and column number. The loop in lines 1 100 to 
11 30 reads in two pieces of data at a time, calls 
them R and C, and uses them in the CALL HCHAR 
command. Thus 24 O's are drawn where we want 
them. 

imO n$ = ' • TYPE YOUR FIRST INITIAL: ' ' 
USD R = lb 
llbD C = 1 
1170 GOSUBISOD 



Here we put the message TYPE YOUR FIRST 
INITIAL on row 16, column 1, using subroutine 
1500. 
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At this point we need the player to give us 
input. As explained before, if we use the INPUT 
command the screen will scroll up and the input 
will be at the bottom of the screen. The Tl has 
another subprogram called CALL KEY that trans- 
fers input from a key of the keyboard to the 
program. Here is the form of the command: 

CALL KEY ( mode-ikey nuBiber nstatus ) 

There are several keyboard modes, in which the 
keys can have different code numbers. For our 
purposes, we will always use mode 5, the BASIC 
mode. You know that every key (every character) 
has its own code number. The CALL KEY com- 
mand checks the keyboard to see if a key has 
been pressed. If it has, the ASCII code number for 
that key is transferred into the program and given 
the name of the variable you put inside the 
parentheses. We will always use the variable 
name K to stand for the key number. The final 
variable inside the parentheses (which we call S 
for status) stores either the number if a key has 
not been pressed or a 1 if it has. This is called the 
status of the keyboard. Here's how we use CALL 
KEY at this point: 

liaO CALL KEY (S-.K-.S) 
inO IFS = DTHENllflD 
ISDO CALLHCHAR (^-iSiK) 
lELD I* = CHR*(K) 
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We need to know the status of the keyboard 
because CALL KEY does not sit and wait for some- 
one to press a key. It simply checks the keyboard 
at the instant the program comes to the CALL KEY 
command. Therefore line 1190 checks to see if a 
key has been pressed. If no key has been pressed 
we go back to CALL KEY repeatedly until a key 
has been pressed. Then line 1200 uses the key num- 
ber (K) for the CALL HCHAR command to draw the 
intital on row 9, comumn 5. We need to store the 
initial for later in the program. K, remember, is a 
code number. The CHR$ function gives us the char- 
acter name, or string, which we store as 1$. 

ISSO f» = • 'ANSWER 1 QUESTION CORRECTLY-. • • 

laao R = la 

lEHQ C = 1 
ISSO GOSUBISOO 

ISbD m = " AND YOUR INITIAL WILL' ' 
1270 R = n 
lEfiO GOSUBISOO 

IBTO fl* = • 'BURST THE BALLOON. ' ' 
1300 R = 50 
IBIO G0SUB1500 
1350 RETURN 



We have three more lines of text to put on the 
screen. We assign each of them to AA$, give them 
column and row numbers, and call subroutine 
1500. Notice that after line 1240 assigns the num- 
ber 1 to C, we don't have to worry about C 
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again, because we want each message to start at 
column 1. We do have to change the row number 
for each message, though. 

Now for the subroutine that put$.the text on the 
screen. 

ISDD REH - — TEXT ON SCREEN 

ISID FORJ = lTOLEN(n*) 
ISSO L$ = SE6$(H*-.J-.l) 
1S3D A = ASC(L*) 
ISMO CALL HCHAR ( R-.C+J A ) 
ISSD NEXT J 
ISbO RETURN 



This routine does just what we did in the last 
subroutine of the Initial Race. It takes AA$, exam- 
ines it character by character with the SEG$ func- 
tion, translates the character to its code number 
using the ASC function, and use CALL HCHAR to 
draw each character on the screen at successive 
column positions. 

Lef s trace how this routine works. Suppose that 
M$ is BURST THE BALLOON. This string has 17 
characters (counting spaces), so LEN(AA$) is 17. 
The first time through the loop L$ is B, the first 
character of M$. A is the ASCII code for B (66). 
Therefore the CALL HCHAR subroutine puts the 
letter B on row R, column C+1. The next charac- 
ter will be put on row R, column C+2, and so 
forth. 
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ASKING THE QUESTION 




In this section we pose arithmetic problems until 
the player gets one right. To pose the problem, we 
pick two random numbers called X and Y, ask 
how much is X plus Y, get the input, and evaluate 
whether the input is correct. Here is the code: 

2DD0 REM — QUESTION (S) 

2010 X = INT(SD*RN1» +1 
SDBO Y = INT(S0«RN1>) +1 

2030 G0SUBS50Q 

2031 REfl ( 2S00 ERASES THE BOTTOM OF THE 
SCREEN) 

20H0 X$ = STR*(X) 
20S0 Y* = STR*(Y) 

2otQ ri*= "HOUiiucHiS"ax*a" + "aY*a 

9 9^19 

2070 R = lb 
20fi0 C = 1 
20^ G0SUB15D0 
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SIQO R = 17 

2110 C = 3 

aiaO G0SUB27D0 

aiai REPI ( 27D0 GETS INPUT ) 

2130 V = VAL(R!ii) 

2mD IF V <> X+Y THEN 2010 

2150 RETURN 

Lines 2010 and 2020 get two random numbers 
between 1 and 50. You could substitute any^ num- 
ber you want for the 50. The subroutine located at 
line 2500 clears the bottom of the screen so that 
we can put new text on it. We'll look at it after 
this section. 

Next we want to put a text message on the 
screen. The message is composed of five parts: 

1 ) the words HOW MUCH IS 

2) the first number (X) 

3) a plus sign (+) 

4) the second number (Y) 

5) a question mark {?) 

If X and Y were 34 and 1 2, then the message 
shourd like like this: HOW MUCH IS 34 + 12? 

Each of these five parts of the text must be a 
string. Since X and Y are numbers, not strings, we 
have to make strings out of them with the STR$ 
function. STR$ examines what follows it in the 
parentheses. If this is a number, the STR$ function 
makes it into a string. Thus, X$ is the string mode 
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out of X, and Y$ is the string made out of Y. X 
and X$ will look identical when put on the screen, 
but they are stored differently, they have different 
code numbers, and you can use X$ as part of 
another string. Line 2060 puts five strings together 
to make up M$, which is then output on the screen 
by subroutine 1 500. 

Next we must get the player's input. We set the 
row to 17 and the column to 3 and call another 
subroutine at line 2700 which uses the CALL KEY 
command over and over again to get characters 
and output them on the screen with CALL HCHAR. 
This subroutine (which will be explained after this 
section) gets input one character at a time and 
puts the characters together into a string called 
R$. We need to evaluate whether the input is 
correct, but we cannot compare a string to a 
number. So we need another function which is the 
opposite of the STR$ function. The VAL function 
takes a string and changes it into a number, so 
that in line 2130 V becomes the number that rep- 
resents R$. One thing to be careful of: the input 
must be all numbers. If the player presses a key 
which is not a number, that character will get into 
R$ and the VAL function will not work-a number 
must be the input to VAL in the parentheses. 

Line 2140 compares V to X+Y. If they are 
equal, the answer is correct and we return from 
the subroutine. If they are not equal, the program 
branches back to the beginning of the subroutine 
and picks two more random numbers. 
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CLEARING THE SCREEN 




This subroutine uses the CALL HCHAR subpro- 
gram to output spaces (character number 32) at all 
the column numbers on rows 16 to 20. We need to 
erase ail these five rows because in the SET UP 
subroutine we put text from rows 1 6 to 20. 

2SD0 REM — ERASE lb TO 20 — 

ESIO F0RR = ll3T0aD 

2S5D F0RC = 1T032 

2S30 CALL HCHAR (R-.Ci32) 

2Sm ICXTC 

2SS0 frEXTR 

2SU) RETURN 

Each time we come to line 2530 R and C are 
different. Therefore character 32 (the space) will 
be drawn at 5 times 32 different screen locations 
(5 rows times 32 characters per row). 
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GETTING INPUT 
WITH CALL KEY 




We have already used this subprogram to get 
the initial. That was only one character of input, 
but now we need more than one character. 
Rather, we do not know how many characters 
there wiJI be-that is up to the player. Therefore, 
we need a subroutine that repeats until the player 
presses the ENTER key (ENTER is code number 
13). After each key is pressed, two things will 
happen: that character will be drawn on the 
screen, and it will be added to R$ so that later we 
will know what the whole input was. 

B7D0 REn GET INPUT 

S71D R$ = ' • ' • 
B7a0 CALL KEY (5-.K-,S) 
2730 IFS = DTHEN27ai 
B7MD IFK = 13THENSfllD 
27SQ CALLHCHAR(R-,C-,K) 
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STfcO R* = R$aCHR*(K) 
5770 C = C + 1 
a7fi0 F0R J = 1T0 3D 
27T0 NEXT J 
EfiQO G0T0a7E0 
EfilO RETURN 



Line 2710 initializes, or sets, R$ to an empty 
string-there are no spaces between the quotation 
marks-since we don't want any text stored in R$ 
each time we get new input If there was text in 
R$, line 2710 will get rid of it. Line 2720 and 
2730 get input of one key (as shown earlier in this 
chapter). After a key has been pressed, line 2740 
evaluates whether the code number for the key is 
13. If it is, that means that ENTER has been 
pressed, so we exit from the subroutine: 

If K does not equal 13, then line 2750 draws 
that character on the screen. Remember that R 
was set to 17 and C was set to 3 before this 
subroutine was called. Therefore the first charac- 
ter of input will be drawn , at row 17, column 3, 
Line 2770 adds 1 to C so that the next character 
will be drawn one column over. 

Line 2760 adds the input to R$. Since all we 
know about the input is its code number (K), we 
use the CHR$ function to get a character to add 
to R$. 

Before we go back to the CALL KEY statement 
to get the next character of input, we add a little 
pause (lines 2780 and 2790); we make the Tl 
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count to 30. We need to do this because comput- 
ers work so quickly. With no pause> if the player 
holds down a key for even a second, the computer 
will be back to line 2720 before that second is up 
and it will think the same key is the next piece of 
input. To avoid having keys repeated if held 
down, we make the computer wait a little bit 
before checking the keyboard again. The draw- 
back with doing this is that if the player presses 
keys too quickly, they will not register. You can 
adjust the length of the pause to suit you. 



BURSTBNG THE BALLOON 




The QUESTION(S) subroutine asks random 
arithmetic problems until the user gets one correct. 
Each time it clears the screen, asks a new question, 
gets new input, and evaluates it. When the input is 

58 



correct, the program proceeds o the subroutine 
located at line 3000. 

The BURST subroutine must do three jobs: 1) 
animate the initial over to the balloon; 2)make the 
balloon disappear; and 3)print the message 
RIGHT! ''inside" the balloon- We'll look at these 
three tasks separately. 

300D REM BURST 

3010 FORC = STOSQ 

3020 CALLHCHAR(^iCi32) 

3030 CALL HCHAR ( 'l-.C+li ASC ( I* ) ) 

30M0 FORJ^ITOID 

30S0 ICXTJ 

30ti0 hEXTC 

The initial (1$) begins at column 5. We want to 
move it over to the balloon, to column 21. The 
loop in lines 3010 to 3060 increases C from 5 to 
20. Each time through it drav/s a space at column 
C and draws the initial at column C+1. ASC(I$) 
is the code number of the initial, and remember 
that CALL HCHAR needs this code. The last time 
through the loop C will be 20, so a space will be 
drawn at column 20 and the initial will be drawn 
at column 21. This loop looks like our sample ani- 
mation program in the last chapter. Here we know 
exactly where we want to start and end, and we 
want the initial to move one column each time. 
Notice that we include a slight pause to slow 
down the animation. 
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3070 RESTORE 

3060 FOR J = 1 TO 24 

30T0 READR.C 

3100 CALLHCHAR(R.C-.3S) 

3110NEXTJ 

We have all the row and column numbers of 
the balloon stored in data statements-we used 
them to draw the balloon. The command 
RESTORE sets the data pointer back to the begin- 
ning of the data. In this way we can use all the 
same data over again. This loop does just what 
the loop in the SET UP subroutine did to draw the 
balloon. It READs in all the row and column data 
and uses these numbers to draw spaces (charac- 
ters 32), thus erasing the balloon. 

31B0 n*= » 'RIGHT!" 
3130 R = T 
3mOC=-23 
31S0 GOSUBISOO 

This little section should be familiar by now. We 
set A^$, R, and C and pass them along to the TEXT 
ON SCREEN subroutine. The word RIGHT! gets 
drawn at column 23 of row 9, looking like it was 
inside of the balloon. 

3iy3 FORJ = 1T0B0DD 
3170 NEXT J 
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We insert a pause so that the player gets a 
final look at the screen before the program stops 
running. 



VARIATIONS 




Once again, you can put the program together 
by looking through the chapter. This game has 
introduced several new concepts and BASIC 
words: the VAL and STR$ functions, CALL KEY to 
get input erasing parts of the screen, and 
RESTORE to reset the data list. Here are two 
suggestions for improving the program: 

1) The GET INPUT subroutine works correctly 
as it stands. However, it can be improved. We 
already mentioned the length of the pause before 
each new CALL KEY statement. Another problem 
involves mistakes: What if the player makes a 
mistake? The subroutine does nothing about this. 
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You can define any key you want as a delete key. 
Lef s say that you want the D key to delete the last 
character that the player typed. If so, you should 
probably put a message somewhere on the screen 
so that the player will know this. 

When a key is pressed, the program evaluates 
whether it was the ENTER key. If it was, the 
subroutine ends. If the key was not ENTER, you 
can make the program evaluate if the key was D: 

27H5 IFK = ASC{ ••!>••) THEN (linenumber) 

If the key is a D, the program will go to a line 
number of your choice. There it should subtract 1 
from C and draw a space at column C, then go 
back to the CALL KEY command. With these hints 
we leave the execution to you. 

2) Subroutine 2500 erases rows 16 to 20. It 
erases aH these rows because in the SET UP sec- 
tion we put text on all of them. However, from the 
time we begin asking questions, we really only use 
rows 16 and 17, and the program seems slow 
because subroutine 2500 erases the other three 
rows even if nothing is on them. You could write 
another subroutine which erases only rows 16 and 
17, and direct the program to it when you want 
only those lines erased. 



62 



All of the techniques we have learned, plus 
some new ones, will be combined here to create d 
longer game program than our others. In this 
game it will take three moves to get from the start 
to the finish line. To move, the player will be pre- 
sented with the name of one of the states of our 
nation, but the name will be scrambled and the 
player will have to figure out which state it is. We 
will give the player six attempts to make the three 
moves. If he or she cannot make it to the finish line 
by then, the game will end. 
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The variable names and subroutine list look like 
this: 



4 REM SCRAMBLED STATES 

a REM R : ROU NUMBER 
12 REM C: COLUMN NUMBER 
lb REM M*: TEXT MESSAGE 
20 REHL*: LEHERINTEXT 
24 REM A : ASCII CODE NUMBER 
2a REMI: ACOUNTER 
32 REM J : ACOUNTER 
3t REM K: KEY NUMBER 
40 REM S : STATUS OF KEYBOARD 

^^ rem i*: the initial 

Ha REMT*(4) : ARRAY OF H TEXTS 

S2 REM S* ( ID ) : ARRAY OF 10 STATES 

St REM U$ ( 20 ) : ARRAY OF USED LETTERS 

to REMA$: ANSUER 

W REM N$: NAME OF STATE 

ta REM T: TURN NUMBER 

72 REM P : POSITION OF INITIAL 

71a REM M: MOVE 

aO REM 0$: GAME OVERf 

BH REM Ls LENGTH OF N$ 

aa REM X: RANDOM NUMBER 

T2 REM 

% RANDOMIZE 
100 GOSUBIOOO 
200 G0SUB2000 
300 G0SUB3000 
HQO END 



We introduce no new BASIC concepts or com- 
mands in this gome, but we use the ones we know 
in more complex ways. You can tell by the long list 
of variable names that we need to store many 
different pieces of data. We also use several 
subroutines-^the main body of the program calls 
only three of them, but these subroutines call 
others. Since we use eight subroutines altogether, 
it might be a good idea to list them here for 
reference: 



mm 


Set up the screen 


ISDD 


Put text on the screen 


SDOO 


Load array of states 


S30Q 


Erase rows 15 to SI 


2700 


Get input 


3000 


The game 


3500 


Scrand3le a state 


3aoo 


(love the initial 



Some of these will be familiar; we have already 
used subroutines to get input, erase part of the 
screen, put text on the screen, move an initial, and 
load an array of text. These little subroutines are 
useful tools-they become a kind of library for the 
programmer to use over and over again. The only 
really different routines in this program are the 
GAME and the SCRAMBLE subroutines. 
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SETTING UP THE SCREEN 




$££. THB ONVi 
NUM3ERICMN 

IS THE 
OFFICE. 



To prepare the player for the game, we set up 
the screen to show that the initial must move 
through three stations to get to the finish. Once 
again, we leave it to you to make the "board" 
look more elaborate. You can easily add decora- 
tions. In this subroutine, we represent the stations 
with plus signs, get the initial and place it at the 
start, and explain how the game works. 

IDOO RErJ~SET UP THE SCREEN — - 

IQIO CALL CLEAR 

1D5D m = "START" 

1Q30 R = '4 

10^0 C = 3 

1050 GOSUBISOO 

lObO CALL HCHAR (S-.S-.ASC( "+" ) ) 
1070 CALL HCHAR (SiMnASC ("+")) 
lOfiO CALL HCHAR ( Si21-.ASC ("+")) 
lOTO CALL HCHAR (SiS^-iASC ("+")) 
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HOD n*= ' 'FINISH'' 
- 1110 R = M 
IISO C = 2S 
1130 £0SUB1500 

The subroutine at line 1500 puts text on the 
screen. It is identical to subroutine 1500 of Chap- 
ter 5. It uses the variables M$, R, and C for the 
message, row, and beginning column number. 
Here we put the words START and FINISH on row 
4 and four plus signs on row 5. They should look 
like this: 

START FINISH 
+ + + 

Next we ask the player for his or her initial and 
use CALL KEY to get input. We use CALL HCHAR 
to draw the initial where the first plus sign was. 

imO m=" TYPE YOUR FIRST INITIAL: ' ' 

1150 R = IS 

llbD C = 1 

117Q C0SUB15Q0 

llflO CALL KEY (S-.K-.S) 

1110 IPS = DTHEi«liaO 

ISOO I^ = CHR$(K) 

1210 CALL HCHAR (S-iSiK) 

CALL KEY gets input of a code number which 
represents the key pressed. We assign CMR$(K) to 
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the variable 1$ so that later we will know what the 
initial is when we want to move it. Line 1210 
draws character K on row 5, column 5. 

Now we need four lines of text to explain the 
game. Every time we have put o single line of text 
on the screen so far we have needed four pro- 
gram lines: one to assign the text to M$, one to 
assign a row, one to assign a column number, and 
one to GOSUB 1500. Lines 1140 to 1170 above 
do just this. In this way, to put four texts on the 
screen would take 16 program lines. Here is a 
shorter way, using an array of texts: 

lEBO T* ( 1 ) = • • YOU HAVE k TRIES TO UIN. ' ' 
1B3D T* (2) = "TO HOVE-i UNSCRAMBLE A STATE' ' 
ISHO T* (3) = • 'OF THE UNITED STATES. ' ' 
laSD T$(H) = 'TRESS ENTER TO BEGIN: 

leto C = 1 

1S70 F0RI = 1T0H 
ISflD n$ = T*(I) 
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R = I + lb 
1300 GOSUBISQQ 
1310 NEXT I 

Using this technique you could handle as many 
lines of text as you want. First assign them to cells 
of an array-here we have 4 cells of T$. Line 1 260 
assigns 1 to C. Since we want all the lines to start 
at column 1, we don't have to assign C again. The 
loop in lines 1270 to 1310 repeats 4 times-once 
for each text. Line 1280 assigns each text of the 
array to M$. Une 1290 makes sure that R is first 
17, then 18, then 19, then 20 the last time 
through. Now that we have M$, R, and C 
assigned we call subroutine 1500 to put M$ on 
the screen. Notice thdt we need a new counter (I) 
because subroutine 1500 uses J for a counter and 
we want to avoid mixing up the variable names. 

13BD CALL KEY (SnKiS) 
1330 IFS = 0THEN13B0 
13M0 RETURN 

Our last line of text asked the player to press 
enter to begin. Lines 1320 and 1330 get one key 
of input. We don't really care what key it is-as 
soon as the player presses any key the program 
will move on. The program now moves to STOR- 
ING THE STATES, but first let's look at input and 
output 
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JNPUT AND OUTPUT 




These two subroutines are the same ones we 
used in the last game. We reproduce them here 
for your convenience. 



ISOO REfl —PUT TEXT ON SCREEN- 
ISM FORJ = lT0LEN(f1$) 
ISSO L* = SEG*(miiJ-,l) 
1S30 A = ASC(L*) 
ISMD CALL HCHAR ( R-,C+J -.A ) 
ISSQ NEXT J 
IStO RETURN 

27DD REM GET INPUT 

2710 A5i = " " 
57ED CALL KEY (S-,K-.S) 
2730 IFS = DTHENH72D 
a7H0 IFK = 13THEN2aiO 
2750 CALL HCHAR (R,C-.K) 
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27t0 A$ = A*aCHR<i(K) 
2770 C = C + 1 
2780 FOR J- ITO 3D 
27T0[CXTJ 
2600 GOTO 2720 
2610 RETURN 

We use the input routine in this game to get 
answers to our questions, so we are calling the 
input string A$ here. In the Variations section of 
the last chapter we suggested that you figure out 
how to let the player delete mistakes. In this game 
it is even more important to be able to delete, 
since the player must type in longer strings. Here is 
one way to do it-add these lines to the above 
subroutine: 

27HS IF K = ASC ( ' ) THEN 2775 

2772 GOTO 27fl0 

277SC = C-1 

277b CALLHCHAR(R-.C-.32) 



We are using an asterisk (*) for the delete key. 
Whatever key you decide to use, you must notify 
the player what to press to delete. This means that 
you will have to insert a message and place it 
somewhere on the screen. Line 2775 subtracts 1 
from C to move one step backward, and line 
2776 draws a space at that column, thus erasing 
the last letter. 
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STORING THE STATES 




This subroutine is similar to the one in Chapter 1 
in which we stored several fortunes into an array. 
Here we have ten state names in DATA state- 
ments. Notice that you can put more than one 
piece of string data on a DATA line, as long as 
you .separate the strings with commas. We READ 
the ten states into an array we call S$ (S for 
state), and before we use the array we DIMension 
it-that is, we tell the computer to reserve ten spac- 
es in its memory for our array. 

SOQO REM -LOAD STATES INTO ARRAY—- 

aOlQ DATA ' ' OHIO ' N ' ' KANSAS • 

• 'NEU YORK' S • 'CAaFORNIA' • 
EDBO DATA ' 'GEORGIA' ' ' 'NORTH DAKOTA" 

"NEVADA" 
2D3Q DATA ' 'OREGON' ' ' 'FLORIDA" 

"NEU MEXICO" 
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, SD^D DIMS* (10) 

5DSQ FORJ -ITOIQ 
■"^ SDtO REA»S*(J) 

SOTO NEXTJ^ 

20a0 RETURN 

*^ The loop in lines 2050 to 2070 READs ten piec- 
w es of data (the names of the states) and stores 
them in the array. The name OHIO is then stored 
^ as S$(l), NEW YORK is S$(3), and NEW MEXICO 
is S$(10)- Later on in the program we will use the 
array in the same way that we used the fortunes 
array. We'll pick a number at random and use 
that number to select a cell of the array. Then 
well take the name of the state that is stored in 
that cell and scramble it. 




We are giving the player 6 turns to get to the 
finish line. Each turn consists of trying to unscram- 
ble the name of a state. If the answer is correct, 
the initial will move to the next plus sign, this 
means that we have to keep track of several 
things: 

1. Where the initial is 

2. If the initial has gotten to the finish line 

3. How many turns the player has had 

The GAME subroutine is fairly complex. It 
reads like a miniature program and uses several 
subroutines within it. Before we look at the BASIQ 
lefs outline the steps we'll have to take in ordinary 
Engliishs 

Check to see if the player has won OR run out 
of turns. 

if either of these conditions is true, then we give 
the appropriate message. 

If neither is true we: 

1. Clear the bottom portion of the screen 

2. Pick a state name at random 

3. Scramble the letters in it 

4. Ask the player to unscramble it 

5. Evaluate whether the answer is correct. 

a. If it IS correct, then we move the initial 
one step and check whether the player 
has now won. 
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b. If it is NOT correct then we tell the player 
the answer. 

c. In EITHER case we add 1 to the number 
of turns and go back to the first step 
(Check to see if the player has won...) 

Lines 3050 to 3340 perform these steps in 
BASIC Lines 3010 to 3040 initialize four varia- 
bles we need to use. U$(20) is an array we need 
in the SCRAMBLE section. T stands for turn 
number, and we set it to 1. P is the position 
(column) number of the initial, which starts at 5. 
0$ tells us if the game is over because the player 
won-we set it initially to ^"NO". 

3DDD REM THE GAME— 

3010 I>II1U*(S0) 

3oao T = 1 

3030 P = S 
30H0 0*= 

30S0 IFT>bTHEN3HtO 
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30SS IF 0$ = • 'YES' • THEN 32b0 





(aOSUB5300 


3D70 


60SUB3S00 


Boao 


R = lfl 




C = l 


BlOO 


PI* = ' 'TYPE YOUR ANSIiERs ' ' 


3110 


60SUB1500 


BISD 


R = n 


3130 


C = 3 


3ma 


G0SUB5700 


3150 


R = 21 


3iy} 


C-1 


3170 


IF A* = N* THEN 3210 


3iaD 


n$= "SORRY-. IT'S" a N* 


3M0 


G0SUB1500 


3S00 


GOTO 3240 


3B10 


f1*=" RIGHT!" 


3Eao 


G0SUB15Q0 


3530 


GosuB3aao 


3B40 


T = T + 1 


3550 


GOTO 2300 



Lines 3050 and 3055 check for two conditions: 
if the turns ore up or the player has won, the 
program skips past the above section, to line 
3260. If the game is not over, we clear the screen 
(subroutine 2300), scramble the state and ask the 
question (3500), get the answer (2700) and evalu^ 
ate it. If A$ (the answer) equals N$ (the name of 
the state) then the player is right and we output 
RIGHTS. If wrong, we say SORRY, IT'S (the correct 
name). Sooner or later the ptayer will either win or 
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run out of turns, and then the subroutine will be 
finished: 

3SyO G0SUB53D0 
3270 R = 15 
35flD C = 1 

32TD IF 0* = • 'YES' ' THEN 3330 

3300 11*= " SORRY-. YOUR TURNS ARE UP. " 

3310 GOSUBISQO 

33S0 GOTO 3350 

3330 " CONGRATULATIONS-. YOU lilON ! ' ' 

33>40 GOSUBISOO 
3350 RETURN 

We clear the screen, decide if the player has 
won or lost, and output the appropriate message. 



CLEARING THE BOTTOM 
OF THE SCREEN 
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This subroutine is virtually identical to the one in 
Chapter 5 which cleared the bottom of the screen. 
Here we need rows 15 to 21 erased: 



2300 REfl ERASE IS TO SI 

2310 F0RR = 1ST021 

2320 F0RC = 1T032 

2330 CALL HCHAR ( R-,C-.32 ) 

2340 NEXTC 

23S0 hEXTR 

23y] RETURN 



THE STATE 




We have an array of 10 states stored as 
S$(10). Whenever it comes time to, ask a question, 
we want to pick one of the states and scramble 
the letters in it. 
78 



The first thing we need to know is the number 
of letters in the state (which we coll N$). Then LEN 
(or length) function, renriember, tells us how many 
characters are in a string. So LEN(N$) represents 
the number of characters in the state's name. We 
say characters and not just letters in the state 
because sometimes there are spaces also, as in 
NEW MEXICO. 

We call the number of characters in the state L. 
To scramble them up, we go through a series of 
steps: 

1. Pick q random integer (called X) 
between 1 and L 

2. Display character X on the screen. 

3. Pick another random integer R 
between 1 and L 

4. Display character X next to the char- 
acter olreody on the screen. 

Repeat the above steps L times altogether, so 
there will be 1 characters displayed on the screen. 

There is only one thing wrong with this plan. 
You know by now that if you tell the computer to 
pick a random integer between 1 and 7, and do it 
7 times in a row, it might pick the same number 
each time. If your state was FLORIDA (which has 
7 letters), and the computer picked the number 4 
over and over again, you would get 

RRRRRRR 

displayed as the scrambled version of FLORIDA. 
That wouldn't be good. 

79 



Therefore, we need a way to tell the computer: 
keep picking random numbers between 1 and 7, 
but don't pick the same number twice. In other 
words, we have to keep track of which numbers 
were already used. The best way to do this is to 
create a new array, which we call U$ (for Used). 
Before we begin scrambling, we put the word 
^^NC in each cell of U$ to mean that we have 
not yet used that cell number. As each cell gets 
used (because the computer picked that number) 
we change what's stored in it to "^YES". (We 
DIMensioned this array at the beginning of the 
GAME section.) Let's change our series of steps to 
show this addition: 

1 . Pick a number at random between 1 and L. 

2. Check if that number has been used yet. 
2a. If it has been used, go back to step 1 . 
2b. If it has not been used, then: 

Put ^^YES" in that cell of U$, and 
Display that character. 
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Repeat these steps L times. 
Here is the BASIC code: 



3S00 REM — SCRAMBLE A STATE 

3S10 X = INT(1D*RN1» +1 
3S20N$ = S*(X) 
3S30 L = LEN(N«) 
3540 FORJ = 1TOL 
3SH3 U*(J)="NO" 
ma NEXT J 
3S70 R = IS 
3sao C = 1 

3STD 11$=" WHAT STATE IS THISf ' ' 

3baa GosuBisoo 
3biom="" 

3bSD F0RJ=1T0L 

3b30 X = INT(L«Rh!l» +1 

3bM0 IF U$ ( X ) = " YES • ' THEN 3ti3Q 

3bSD U*(X) = "YES" 

3bt0 fl* = f1$aSE6$(N$-.Xil) 

3b7D NEXTJ 

3tfiD R = lb 

3b«ID< = 3 

370D G0SUB15DQ 

3710 RETURN 

X is a random integer between 1 and 10. Why 
10? Because we have 10 states. If X is 1 then 
S$(X) is OHIO, the first state in the DATA list. To 
make our code easier to read, we store S$(X) as 
N$. If N$ is OHIO, then L is 4, the number of 
characters in OH lO. 
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The loop in lines 3540 to 3560 initializes the U$ 
array. It puts the word ''NO" in 4 cells of U$. In 
other words, U$(l), U$(2), U$(3), and U$(4) will 
all contain the word ""NO" to start with. There are 
4 letters in OHIO: all of them have NOT been 
used yet. 

After we ask WHAT STATE IS THIS? we get to 
the part of the subroutine that actually scrambles 
the letters and displays them. We go through the 
FOR/NEXT loop in lines 3620 to 3670 L times. In 
our example, using OHIO, L equals 4-4 letters in 
OHIO. 

Each time through we pick a random number 
between 1 and 4 (that is, L). Then we check: if that 
cell of U$ contains "'YES" because it's been used 
already we go back and pick another number. 
The computer will keep picking until it finds a ran- 
dom number corresponding to a cell of U$ which 
contains the word ''NO". At that point it will skip 
line 3640 and proceed to do two things. First, put 
"YES" in that cell number so that the computer 
can't display the same letter again. Then, add that 
character to M$, so that when we finsh the loop 
M$ will be the scrambled state. 

After the loop is finshed, we output M$ (the 
scrambled state) on row 16, column 3 of the 
screen. 

It would be a good idea at this point for you to 
go over the code o few times and see how it does 
what our steps above it do. Convince yourself that 
every time the program goes to this subroutine it 
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picks a new state, calls it N$ and calls its length L, 
then goes around L times picking different random 
numbers each time and displaying the character 
of N$ corresponding to that number. 

This subroutine does only this job. Refer back to 
the main GAME subroutine. Right before QUES- 
TION we cleared the bottom of the screen. Right 
after it we get the answer from the player and 
evaluate it If the answer is correct we have to 
take core of one more piece of business. 



MOVjNG THE INITIAL 




Each right answer moves the initial one more 
station toward the finish. We put plus signs to 
mark the steps, and we placed them 8 columns 
apart, at columns 5, 13, 21, and 29 (the finish). 
Also, remember, at the beginning of the GAME 
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subroutine we initialized P to 5 to keep track of 
where we put the initial to begin. 

To move the initial well go through the same 
basic steps that we used in the last two games: 

1 . Erase the initial where it is now. 

2. Draw it one column further over. 

We repeat these steps 8 times to move the ini- 
tial 8 columns. Then we do two more necessary 
things. We add 8 to P so that we know where the 
initial ends up after it's moved, and we check to 
see if P now equals 29. If it does, this means that 
the player has won, and we put the word ""YES" 
intoOl 

SaOO REM —nOVE THE INITIAL™ 

3fil0 F0Rn = PT0P+7 

3flS0 aLLHCHAR(S-.n-.3S) 

3fl30 CALL HCAHR ( SiH+l-, ASC ( K ) ) 

SBHD F0RJ=1T01D 

3650 NEXT J 

3fly] NEXTI1 

3a7DP = P + fi 

3afi0 IFP = 2TTHEN3^00 

3fl^D 60T03T1D 

3™ 0$="YES" 

yilD RETURN 

The animation here is just the same as that in 
the last chapter. We draw a space where the jnti- 
tidl is and then draw the intial one column further 
over, until the ititial has moved 8 columns. 
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0$ had been set to ''NO" at the beginning of 
the game. Whenever P = 29 it will be set to 
''YES'^ Back in the GAME section, line 3055 will 
flow be true, and the program will skip over the 
loop. When it gets to line 3290, since 0$ does 
equal "'YES" it will congratulate the player and 
end. 



FUN AND GAMES 



WV£ GCfT TO 
LBARN TOUS£ 
THESE 
XOMFUTERS.^ 



HEY.imoUGHTTHlS 
$mT GAME FROM 
""KILLER'S' 
UARE- 
HOUSE. 



Throughout this book we have covered many 
aspects of programming. We have used new con- 
cepts like the random function and animation. We 
have explained new commands, functions, and 
subprograms. Of equal importance, we have tried 
to introduce good programming practices of 
structured programming. 

In the first four chapters we suggested several 
possible variations. At this point the variations are 
all up to you. Almost any of those suggested for 
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the other games you could also use for the game 
in this chapter. More important, though, is for you 
to think up your own variations. Pick any part of 
any program and you can probably think of ways 
to improve it, to make the screen format look 
better or to make the game more fun. Create your 
own coding routines. Think up more complicated 
uses for the random function. Do fancier animat- 
ing. Invent totally new games. 

We have covered many of the built-in Texas 
Instrument's functions and subprograms. There are 
several more, however, that you might use to 
enhance your- programs. The CALL SOUND 
subprogram, for instance, can add music to 
programs, and CALL COLOR can color any char- 
acter on the screen, or change the entire screen 
background. Another subprogram, CALL CHAR, 
lets you define your own characters to look any 
way you want. This is a useful graphic feature- 
you can use it to make your own shapes for 
animation. 
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Programming is a combination of using what 
you already know and using your imagination. 
We have tried here to supply you with some useful 
concepts and techniques for programming games. 
However, there is always much more to learn for 
any programmer, no matfer how experienced. If 
you want to get better at programming, you will 
keep reading and studying to learn more about 
this skill. You already know enough, though, to 
create imaginath^e games. Hopefully you will go 
on learning as you program. The most important 
thing you can do is to have fun programming! 
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index 



Index to chapter references for new concepts and 
terms used in this book. Reserved words in IBASIC are 
capitalized. 



NAME 



ARRAY 



animation 



MEANING ANE> USES 



CHAPTER 



a type of variable with which more 

than one piece of data is stored 

using the same name. 1 ,5 

making it appear that something is 
moving on the screen by quickly 
printing and erasing it at successive 
screen locations. 3-5 



ASC function returns the ASCII code number for 
a given character. Example: 
ASCCW) returns the number 65. 2 

CALL HCHAR subprogram displays a given char- 
acter at a specified screen location. 3-5 

CALL KEY subprogram gets input from the 

keyboard, one character at a time. 4,5 

CHR$ function returns the character for a given 
ASCII code number. Example: 
CHR${65) returns an ^^A". 2 



DIM 



GOSUB 
initializing 



a command which sets aside a given 
number of cells for on array. 
Example: the command DIM M$(15) 
will set aside 15 cells in memory for 
the array M$. 1 ,5 

(see subroutines) 

placing a starting (or initial) value in 
a variable. 1-5 



ENT function rounds any number down to the 
next lowest integer. Used with the 
RND function. 1-5 

LEN function returns the numbers of characters in 
a given string. 
Example: LEN('^HELLCy') 
will return a 5. 2 



random 



READ/DATA 



RBTORE 



The RND function, used with the 
RANDOMIZE command, chooses 
decimal numbers bt random, as 
explained in Chapter 1 . 



1-5 



The command READ looks for data 
stored in DATA statements, as 
explained in Chapter 1 . Used with: 
string data (messages, fortunes): 1 ,5 
number data for screen positions: 4 

sets the data pointer at the begin- 
ning of the DATA in the program 4 



RETURN 



(see subroutines) 



furKtion returns a specified string 

from within a given string. Exomple: 
SEG$(*^HAPPr' A2) returns 2 char- 
acters from HAPPY, starting at the 
4th character, or PY. 2 



STR$ function 



makes a s^ing from a spec- 
ified numerical variable 



saabroyfines program sections or blocks as coiled 
by the GOSUB command. 
Subroutines must end with the 
RETURN command. 1 -5 



VAL function makes a numerical variable 

from a specified string, if the string 
is composed of numerals. 5 
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YOU, SPEED WALKER, 
AND YOUR TI-99 Series 
CAN DO SOME PRETTY 
AMAZING THINGS! 




,, w " 

If you already know some beginning BASIC then 
you're ready to start programming your Tl to play 
terrific games. Wm 

With simple, easy-to-follow directions your clue-find- { 
ing friend SPEED WALKER will take you step-by-step ( 
through programs of mystery and adventure. Pro- ( 
grams that you can expand and improve with what ( 
you learn in this book. 



The rest is up to you and your imagination. 
GET READY...GET SET... START PROGRAAAMIN 



